#!perl

use 5.016;
use YAML qw(Dump);

my @data = (1, 2);
@data = (@data, (3, 4));
say Dump(@data);
